﻿Imports Microsoft.SharePoint
Imports System.Web.UI
Imports System.Web.UI.WebControls


Public Class CustomToolPart : Inherits WebPartPages.ToolPart
    Dim image247 As Image

    Protected Overrides Sub RenderToolPart(ByVal output As HtmlTextWriter)
        'output.Write("<a href='http://www.sharepoint247.com' target='_blank'><img src='http://www.sharepoint247.com/images/logourl.png' width=185px border=0 /></a>")
        output.Write("<a href='http://www.sharepoint247.com' target='_blank'>www.sharepoint247.com</a><br>")

    End Sub
    'Protected Overrides Sub CreateChildControls()

    '    image247 = New Image
    '    image247.ImageUrl = "http://www.sharepoint247.com/images/logourl.png"

    '    Controls.Add(image247)

    '    Me.CreateChildControls()

    'End Sub

    Public Overrides Sub ApplyChanges()
       
    End Sub


    Public Overrides Sub SyncChanges()
        ' sync with the new property changes here
    End Sub



    Public Overrides Sub CancelChanges()

    End Sub

 
End Class
